home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir24 / frenchgp.zip / BYR31.ZIP / MFF.INC < prev    next >
Text File  |  1994-08-14  |  1KB  |  52 lines
  1. BOUCLE1:
  2.   DELBEGIN
  3.   READCHARS 2
  4.   IF ERROR GOTO FIN
  5.   READLINE
  6.   IF ERROR GOTO FIN
  7.  BOUCLE2:
  8.   SEND "F< ^$^M"
  9.   WAIT 60 FOR TX
  10.   IF ERROR GOTO ERREUR
  11.   WAIT 60 FOR NOT TX
  12.   IF NOT ERROR GOTO BOUCLE1
  13.   IF NOT CONNECTED GOTO ERREUR
  14.   WAIT 60 FOR NOT TX
  15.   IF NOT ERROR GOTO BOUCLE1
  16.   IF NOT CONNECTED GOTO ERREUR
  17.   WAIT 60 FOR NOT TX
  18.   IF NOT ERROR GOTO BOUCLE1
  19.   IF NOT CONNECTED GOTO ERREUR
  20.   WAIT 60 FOR NOT TX
  21.   IF NOT ERROR GOTO BOUCLE1
  22.   IF NOT CONNECTED GOTO ERREUR
  23.   WAIT 60 FOR NOT TX
  24.   IF NOT ERROR GOTO BOUCLE1
  25.   IF NOT CONNECTED GOTO ERREUR
  26.   WAIT 60 FOR NOT TX
  27.   IF NOT ERROR GOTO BOUCLE1
  28.   IF NOT CONNECTED GOTO ERREUR
  29.   WAIT 60 FOR NOT TX
  30.   IF NOT ERROR GOTO BOUCLE1
  31.   IF NOT CONNECTED GOTO ERREUR
  32.   WAIT 60 FOR NOT TX
  33.   IF NOT ERROR GOTO BOUCLE1
  34.   IF NOT CONNECTED GOTO ERREUR
  35.   WAIT 60 FOR NOT TX
  36.   IF NOT ERROR GOTO BOUCLE1
  37.   IF NOT CONNECTED GOTO ERREUR
  38.   WAIT 60 FOR NOT TX
  39.   IF ERROR GOTO ERREUR
  40.   GOTO BOUCLE1
  41.  
  42. ERREUR:
  43.  CALL MDISC1.INC
  44.   WAIT 30
  45.  CALL MCONNECT.INC
  46.  CALL MHEADER.INC
  47.   GOTO BOUCLE2
  48.  
  49. FIN:
  50.   CLOSE
  51.  
  52.